;redcode-94b
;name Thatched Boats
;author ZeFlox
;strategy silk with traps
;assert CORESIZE==8000

org base

step equ 19
sadd equ 1
y equ spl 1, 0
n equ mov -1, 0

base y ;10011 => 20
n
n
y
y

silk spl @silk, #(step*20)
mov }silk, >silk

add #(sadd-step), silk

mov {silk, <silk
jmp @silk, >-1

dat <1, <1
trap mov -1, <1
spl -1, (silk-1)

temp for 12
jmp trap, 0
rof

end